home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / PAGE.ELC < prev    next >
Text File  |  1993-03-28  |  2KB  |  31 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:39:43 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/page.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'forward-page #[(&optional count) "¼é┴┬V½ôm¼É├ ┼╞#¼âdbêSë¬i┬W½£o¼Ö╟uê╚ ┼╞#½å┬òbê¬âebêTë¬`╞ë    ç" [count 1 0 re-search-forward page-delimiter nil t -1 re-search-backward zmacs-region-stays] 5 "\
  14. Move forward to page boundary.  With arg, repeat, or go back if negative.
  15. A page boundary is any line whose beginning matches the regexp  page-delimiter." "p"])
  16. (fset 'backward-page #[(&optional count) "¼é┴┬[!ç" [count 1 forward-page] 2 "\
  17. Move backward to page boundary.  With arg, repeat, or go fwd if negative.
  18. A page boundary is any line whose beginning matches the regexp  page-delimiter." "p"])
  19. (fset 'mark-page #[(&optional arg) "½à┴!¬ü┬ë┬V½å├!ê¬è┬W½à├S!ê├ ê─┼╞\"ê├╟!ê╚ ç" [arg prefix-numeric-value 0 forward-page push-mark nil t -1 zmacs-activate-region] 4 "\
  20. Put mark at end of page, point at beginning.
  21. A numeric arg specifies to move forward or backward by that many pages,
  22. thus marking a page other than the one point was originally in." "P"])
  23. (fset 'narrow-to-page #[(&optional arg) "½à┴!¬ü┬è~ê┬V½å├!ê¬è┬W½à├S!ê├ êè┬yê─!)½â┬yê`├╞!êl½åo¼â╟yê`})ç" [arg prefix-numeric-value 0 forward-page looking-at page-delimiter -1 1] 3 "\
  24. Make text outside current page invisible.
  25. A numeric arg specifies to move forward or backward by that many pages,
  26. thus showing a page other than the one point was originally in." "P"])
  27. (fset 'count-lines-page #[nil "è`└ëëëë╟ ê╚yê╔\n!¼â└ê`╦ ê`╠ \"╠\"╠ \"═╬ \n    $ê.╧ëç" [nil after before total end beg opoint forward-page 0 looking-at page-delimiter backward-page count-lines message "Page has %d lines (%d + %d)" t zmacs-region-stays] 6 "\
  28. Report number of lines on current page, and how many are before or after point." nil])
  29. (fset 'what-page #[nil "î~êè└yê┴`┴bê─\n╞#½à T¬t╟╚ ╔`\n\"T#ê,╞ë\nç" [0 1 opoint count re-search-forward page-delimiter t message "Page %d, line %d" count-lines zmacs-region-stays] 6 "\
  30. Print page and line number of point." nil])
  31.